home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / prog / mui / muirexx2.2 / demos / muidir / lhaextract.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-28  |  391b  |  24 lines
  1. /*
  2.  
  3. Code:       lhaextract.rexx
  4. Author:     Russell Leighton
  5. Revision:   11 Jan 1996
  6.  
  7. Comments:   This script is used to extract lha archive contents.
  8.  
  9. */
  10. options results
  11.  
  12. parse arg portname' 'name' 'ddir
  13.  
  14. address command 'lha > nil: x 'name ddir
  15.  
  16. address VALUE portname
  17.  
  18. group ID DIR REGISTER
  19. ndir = result
  20.  
  21. check ID ICN||(3-ndir)
  22. dirlist ID DIR||(3-ndir) REREAD result
  23. window ID LHA CLOSE
  24.